1 OPEN15,D0,15,"I0"
2 CLOSE15
3 A=USR(33),1:A=USR(33),2:A=USR(33),3
4 B$="S[211]D[196]HCP"
5 FORT=1TOLEN(B$):IFA$<>MID$(B$,T,1)THENNEXT:LOAD"MENU",D0
6 A$="PR"+A$:LOADA$,D0